home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 June: Reference Library / Dev.CD Jun 96 RL / Dev.CD Jun 96 RL.toast / Technical Documentation / develop / develop Issue 11 / develop Issue 11 code / The NetWork Project.sea / The NetWork Project / Examples (Sources) / hello.p < prev    next >
MacBinary  |  1992-07-15  |  3.8 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert ZX81 Sinclair BASIC (image/sinclairBASIC) ext Supported
1% dexvert Applause Picture (image/applausePicture) ext Unsupported
1% dexvert bsdiff patch (other/bsdiffPatch) ext Unsupported
1% dexvert imgdiff patch (other/imgdiffPatch) ext Unsupported
1% dexvert MATLAB p-code (other/matlabPCode) ext Unsupported
1% dexvert WSUS Patch Storage File (other/wsusPatchStorageFile) ext Unsupported
1% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Wed Jul 15 15:25:37 1992, modified Wed Jul 15 15:25:37 1992, creator 'MPS ', type ASCII, 3093 bytes "hello.p" , at 0xc95 495 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% dearkID deark: macbinary default
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 68 65 6c 6c 6f 2e | 70 00 00 00 00 00 00 00 |..hello.|p.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0c 15 00 | 00 01 ef a6 8a 2c 31 a6 |........|.....,1.|
|00000060| 8a 2c 31 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.,1.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d9 ba 00 00 |........|........|
|00000080| 70 72 6f 67 72 61 6d 20 | 48 65 6c 6c 6f 3b 0d 7b |program |Hello;.{|
|00000090| 20 09 43 6f 70 79 72 69 | 67 68 74 20 31 39 39 30 | .Copyri|ght 1990|
|000000a0| 20 54 68 65 20 4e 65 74 | 57 6f 72 6b 20 50 72 6f | The Net|Work Pro|
|000000b0| 6a 65 63 74 2c 20 53 74 | 61 74 4c 61 62 20 48 65 |ject, St|atLab He|
|000000c0| 69 64 65 6c 62 65 72 67 | 2e 20 20 20 7d 0d 0d 75 |idelberg|.   }..u|
|000000d0| 73 65 73 20 09 4d 65 6d | 54 79 70 65 73 2c 20 51 |ses .Mem|Types, Q|
|000000e0| 75 69 63 6b 44 72 61 77 | 2c 20 4f 53 49 6e 74 66 |uickDraw|, OSIntf|
|000000f0| 2c 20 54 6f 6f 6c 49 6e | 74 66 2c 20 53 79 73 45 |, ToolIn|tf, SysE|
|00000100| 71 75 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |qu;...PR|OCEDURE |
|00000110| 49 6e 69 74 54 6f 6f 6c | 42 6f 78 3b 0d 09 63 6f |InitTool|Box;..co|
|00000120| 6e 73 74 20 63 61 6c 6c | 73 54 6f 4d 6f 72 65 4d |nst call|sToMoreM|
|00000130| 61 73 74 65 72 73 3d 31 | 30 3b 0d 09 09 56 41 52 |asters=1|0;...VAR|
|00000140| 0d 09 09 09 69 20 3a 20 | 69 6e 74 65 67 65 72 3b |....i : |integer;|
|00000150| 0d 09 09 09 70 20 3a 20 | 47 72 61 66 50 74 72 3b |....p : |GrafPtr;|
|00000160| 0d 09 09 09 6d 20 3a 20 | 4d 65 6e 75 48 61 6e 64 |....m : |MenuHand|
|00000170| 6c 65 3b 0d 09 09 09 61 | 70 70 6c 5a 6f 6e 65 3a |le;....a|pplZone:|
|00000180| 09 09 54 48 7a 3b 0d 09 | 09 09 6f 6c 64 4d 6f 72 |..THz;..|..oldMor|
|00000190| 65 4d 61 73 74 3a 09 49 | 4e 54 45 47 45 52 3b 0d |eMast:.I|NTEGER;.|
|000001a0| 09 0d 09 42 45 47 49 4e | 0d 09 09 4d 61 78 41 70 |...BEGIN|...MaxAp|
|000001b0| 70 6c 5a 6f 6e 65 3b 0d | 09 09 0d 09 7b 20 48 65 |plZone;.|....{ He|
|000001c0| 72 65 20 69 73 20 61 20 | 74 72 69 63 6b 20 2d 20 |re is a |trick - |
|000001d0| 53 74 6f 6c 65 6e 20 66 | 72 6f 6d 20 4d 61 63 41 |Stolen f|rom MacA|
|000001e0| 70 70 2d 20 73 75 67 65 | 73 74 65 64 20 62 79 20 |pp- suge|sted by |
|000001f0| 4a 65 72 6f 6d 65 20 43 | 2e 20 7d 0d 09 09 61 70 |Jerome C|. }...ap|
|00000200| 70 6c 5a 6f 6e 65 20 3a | 3d 20 41 70 70 6c 69 63 |plZone :|= Applic|
|00000210| 5a 6f 6e 65 3b 0d 09 09 | 6f 6c 64 4d 6f 72 65 4d |Zone;...|oldMoreM|
|00000220| 61 73 74 20 3a 3d 20 61 | 70 70 6c 5a 6f 6e 65 5e |ast := a|pplZone^|
|00000230| 2e 6d 6f 72 65 4d 61 73 | 74 3b 0d 09 09 61 70 70 |.moreMas|t;...app|
|00000240| 6c 5a 6f 6e 65 5e 2e 6d | 6f 72 65 4d 61 73 74 20 |lZone^.m|oreMast |
|00000250| 3a 3d 20 6f 6c 64 4d 6f | 72 65 4d 61 73 74 20 2a |:= oldMo|reMast *|
|00000260| 20 63 61 6c 6c 73 54 6f | 4d 6f 72 65 4d 61 73 74 | callsTo|MoreMast|
|00000270| 65 72 73 3b 0d 09 09 4d | 6f 72 65 4d 61 73 74 65 |ers;...M|oreMaste|
|00000280| 72 73 3b 0d 09 09 61 70 | 70 6c 5a 6f 6e 65 5e 2e |rs;...ap|plZone^.|
|00000290| 6d 6f 72 65 4d 61 73 74 | 20 3a 3d 20 6f 6c 64 4d |moreMast| := oldM|
|000002a0| 6f 72 65 4d 61 73 74 3b | 0d 0d 09 09 49 6e 69 74 |oreMast;|....Init|
|000002b0| 47 72 61 66 28 40 74 68 | 65 50 6f 72 74 29 3b 20 |Graf(@th|ePort); |
|000002c0| 09 09 09 20 20 20 7b 69 | 6e 69 74 69 61 6c 69 7a |...   {i|nitializ|
|000002d0| 65 20 51 75 69 63 6b 44 | 72 61 77 7d 0d 09 09 49 |e QuickD|raw}...I|
|000002e0| 6e 69 74 46 6f 6e 74 73 | 3b 09 09 09 09 09 09 20 |nitFonts|;...... |
|000002f0| 20 20 7b 69 6e 69 74 69 | 61 6c 69 7a 65 20 46 6f |  {initi|alize Fo|
|00000300| 6e 74 20 4d 61 6e 61 67 | 65 72 7d 0d 09 09 49 6e |nt Manag|er}...In|
|00000310| 69 74 57 69 6e 64 6f 77 | 73 3b 09 09 09 09 09 20 |itWindow|s;..... |
|00000320| 20 20 7b 69 6e 69 74 69 | 61 6c 69 7a 65 20 57 69 |  {initi|alize Wi|
|00000330| 6e 64 6f 77 20 4d 61 6e | 61 67 65 72 7d 0d 09 09 |ndow Man|ager}...|
|00000340| 49 6e 69 74 4d 65 6e 75 | 73 3b 09 09 09 09 09 09 |InitMenu|s;......|
|00000350| 20 20 20 7b 69 6e 69 74 | 69 61 6c 69 7a 65 20 4d |   {init|ialize M|
|00000360| 65 6e 75 20 4d 61 6e 61 | 67 65 72 7d 0d 09 09 54 |enu Mana|ger}...T|
|00000370| 45 49 6e 69 74 3b 20 09 | 09 09 09 09 09 20 20 20 |EInit; .|.....   |
|00000380| 7b 69 6e 69 74 69 61 6c | 69 7a 65 20 54 65 78 74 |{initial|ize Text|
|00000390| 45 64 69 74 7d 0d 09 09 | 49 6e 69 74 44 69 61 6c |Edit}...|InitDial|
|000003a0| 6f 67 73 28 4e 49 4c 29 | 3b 09 09 09 09 20 20 20 |ogs(NIL)|;....   |
|000003b0| 7b 69 6e 69 74 69 61 6c | 69 7a 65 20 44 69 61 6c |{initial|ize Dial|
|000003c0| 6f 67 20 4d 61 6e 61 67 | 65 72 7d 0d 09 09 49 6e |og Manag|er}...In|
|000003d0| 69 74 43 75 72 73 6f 72 | 3b 20 09 09 09 09 09 20 |itCursor|; ..... |
|000003e0| 20 20 7b 63 61 6c 6c 20 | 51 75 69 63 6b 44 72 61 |  {call |QuickDra|
|000003f0| 77 20 74 6f 20 6d 61 6b | 65 20 63 75 72 73 6f 72 |w to mak|e cursor|
|00000400| 20 28 70 6f 69 6e 74 65 | 72 29 20 61 6e 20 61 72 | (pointe|r) an ar|
|00000410| 72 6f 77 7d 0d 0d 09 09 | 6d 20 3a 3d 20 47 65 74 |row}....|m := Get|
|00000420| 4d 65 6e 75 20 28 31 29 | 3b 0d 09 09 41 64 64 52 |Menu (1)|;...AddR|
|00000430| 65 73 4d 65 6e 75 20 28 | 6d 2c 20 27 44 52 56 52 |esMenu (|m, 'DRVR|
|00000440| 27 29 3b 0d 09 09 49 6e | 73 65 72 74 4d 65 6e 75 |');...In|sertMenu|
|00000450| 20 28 6d 2c 20 30 29 3b | 0d 09 09 6d 20 3a 3d 20 | (m, 0);|...m := |
|00000460| 47 65 74 4d 65 6e 75 20 | 28 32 29 3b 20 49 6e 73 |GetMenu |(2); Ins|
|00000470| 65 72 74 4d 65 6e 75 20 | 28 6d 2c 20 30 29 3b 0d |ertMenu |(m, 0);.|
|00000480| 09 45 4e 44 3b 0d 0d 74 | 79 70 65 20 52 67 6e 48 |.END;..t|ype RgnH|
|00000490| 50 74 72 20 3d 20 5e 52 | 67 6e 48 61 6e 64 6c 65 |Ptr = ^R|gnHandle|
|000004a0| 3b 20 49 6e 74 50 74 72 | 20 3d 20 5e 69 6e 74 65 |; IntPtr| = ^inte|
|000004b0| 67 65 72 3b 0d 0d 76 61 | 72 20 73 61 76 65 64 67 |ger;..va|r savedg|
|000004c0| 72 61 79 72 67 6e 2c 20 | 6e 65 77 67 72 61 79 72 |rayrgn, |newgrayr|
|000004d0| 67 6e 2c 20 6d 6f 75 73 | 65 72 67 6e 20 3a 20 52 |gn, mous|ergn : R|
|000004e0| 67 6e 48 61 6e 64 6c 65 | 3b 20 0d 09 77 20 3a 20 |gnHandle|; ..w : |
|000004f0| 57 69 6e 64 6f 77 50 74 | 72 3b 20 70 77 20 3a 20 |WindowPt|r; pw : |
|00000500| 69 6e 74 65 67 65 72 3b | 20 65 76 20 3a 20 45 76 |integer;| ev : Ev|
|00000510| 65 6e 74 52 65 63 6f 72 | 64 3b 0d 09 6d 6f 75 73 |entRecor|d;..mous|
|00000520| 65 70 6f 73 20 3a 20 50 | 6f 69 6e 74 3b 0d 09 74 |epos : P|oint;..t|
|00000530| 68 65 44 69 61 6c 6f 67 | 3a 44 69 61 6c 6f 67 50 |heDialog|:DialogP|
|00000540| 74 72 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 43 |tr;..PRO|CEDURE C|
|00000550| 65 6e 74 65 72 52 65 63 | 74 28 56 41 52 20 47 6c |enterRec|t(VAR Gl|
|00000560| 6f 62 52 20 3a 20 72 65 | 63 74 3b 76 68 3a 76 68 |obR : re|ct;vh:vh|
|00000570| 73 65 6c 65 63 74 29 3b | 0d 09 7b 43 65 6e 74 65 |select);|..{Cente|
|00000580| 72 20 61 20 72 65 63 74 | 61 6e 67 6c 65 20 74 6f |r a rect|angle to|
|00000590| 20 63 65 6e 74 65 72 20 | 6f 66 20 73 63 72 65 65 | center |of scree|
|000005a0| 6e 7d 0d 56 41 52 09 78 | 64 65 6c 2c 20 79 64 65 |n}.VAR.x|del, yde|
|000005b0| 6c 2c 73 63 72 65 65 6e | 57 69 64 74 68 2c 73 63 |l,screen|Width,sc|
|000005c0| 72 65 65 6e 48 65 69 67 | 68 74 3a 20 69 6e 74 65 |reenHeig|ht: inte|
|000005d0| 67 65 72 3b 0d 42 45 47 | 49 4e 0d 09 77 69 74 68 |ger;.BEG|IN..with|
|000005e0| 20 73 63 72 65 65 6e 62 | 69 74 73 20 64 6f 20 0d | screenb|its do .|
|000005f0| 09 62 65 67 69 6e 20 0d | 09 09 73 63 72 65 65 6e |.begin .|..screen|
|00000600| 77 69 64 74 68 20 3a 3d | 20 62 6f 75 6e 64 73 2e |width :=| bounds.|
|00000610| 72 69 67 68 74 20 2d 20 | 62 6f 75 6e 64 73 2e 6c |right - |bounds.l|
|00000620| 65 66 74 3b 0d 09 09 73 | 63 72 65 65 6e 48 65 69 |eft;...s|creenHei|
|00000630| 67 68 74 20 3a 3d 20 62 | 6f 75 6e 64 73 2e 62 6f |ght := b|ounds.bo|
|00000640| 74 74 6f 6d 20 2d 20 62 | 6f 75 6e 64 73 2e 74 6f |ttom - b|ounds.to|
|00000650| 70 3b 0d 09 65 6e 64 3b | 0d 09 78 64 65 6c 3a 3d |p;..end;|..xdel:=|
|00000660| 30 3b 79 64 65 6c 3a 3d | 30 3b 0d 09 57 49 54 48 |0;ydel:=|0;..WITH|
|00000670| 20 47 6c 6f 62 52 20 44 | 4f 0d 09 09 69 66 20 76 | GlobR D|O...if v|
|00000680| 68 3d 68 20 74 68 65 6e | 20 78 64 65 6c 20 3a 3d |h=h then| xdel :=|
|00000690| 20 28 28 73 63 72 65 65 | 6e 57 69 64 74 68 20 2d | ((scree|nWidth -|
|000006a0| 20 28 72 69 67 68 74 20 | 2d 20 6c 65 66 74 29 29 | (right |- left))|
|000006b0| 20 44 49 56 20 32 29 20 | 2d 20 6c 65 66 74 0d 09 | DIV 2) |- left..|
|000006c0| 09 65 6c 73 65 20 79 64 | 65 6c 20 3a 3d 20 28 28 |.else yd|el := ((|
|000006d0| 73 63 72 65 65 6e 48 65 | 69 67 68 74 20 2d 20 28 |screenHe|ight - (|
|000006e0| 62 6f 74 74 6f 6d 20 2d | 20 74 6f 70 29 29 20 44 |bottom -| top)) D|
|000006f0| 49 56 20 32 29 20 2d 20 | 74 6f 70 3b 0d 09 6f 66 |IV 2) - |top;..of|
|00000700| 66 73 65 74 52 65 63 74 | 28 47 6c 6f 62 52 2c 20 |fsetRect|(GlobR, |
|00000710| 78 64 65 6c 2c 20 79 64 | 65 6c 29 3b 0d 45 4e 44 |xdel, yd|el);.END|
|00000720| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 43 65 6e |;..PROCE|DURE Cen|
|00000730| 74 65 72 57 69 6e 64 6f | 77 28 77 70 74 72 3a 77 |terWindo|w(wptr:w|
|00000740| 69 6e 64 6f 77 70 74 72 | 3b 76 68 3a 76 68 73 65 |indowptr|;vh:vhse|
|00000750| 6c 65 63 74 29 3b 0d 09 | 7b 43 65 6e 74 65 72 20 |lect);..|{Center |
|00000760| 61 20 77 69 6e 64 6f 77 | 20 74 6f 20 63 65 6e 74 |a window| to cent|
|00000770| 65 72 20 6f 66 20 73 63 | 72 65 65 6e 7d 0d 43 4f |er of sc|reen}.CO|
|00000780| 4e 53 54 0d 09 4d 61 6b | 65 46 72 6f 6e 74 20 3d |NST..Mak|eFront =|
|00000790| 20 46 61 6c 73 65 3b 0d | 56 41 52 0d 09 72 2c 20 | False;.|VAR..r, |
|000007a0| 72 62 6f 75 6e 64 20 3a | 20 72 65 63 74 3b 0d 42 |rbound :| rect;.B|
|000007b0| 45 47 49 4e 0d 09 69 66 | 20 57 70 74 72 3c 3e 6e |EGIN..if| Wptr<>n|
|000007c0| 69 6c 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |il then |begin...|
|000007d0| 72 20 3a 3d 20 77 70 74 | 72 5e 2e 70 6f 72 74 52 |r := wpt|r^.portR|
|000007e0| 65 63 74 3b 0d 09 09 72 | 62 6f 75 6e 64 20 3a 3d |ect;...r|bound :=|
|000007f0| 20 77 70 74 72 5e 2e 70 | 6f 72 74 62 69 74 73 2e | wptr^.p|ortbits.|
|00000800| 62 6f 75 6e 64 73 3b 0d | 09 09 4f 66 66 73 65 74 |bounds;.|..Offset|
|00000810| 52 65 63 74 28 72 2c 20 | 2d 72 62 6f 75 6e 64 2e |Rect(r, |-rbound.|
|00000820| 6c 65 66 74 2c 20 2d 72 | 62 6f 75 6e 64 2e 74 6f |left, -r|bound.to|
|00000830| 70 29 3b 0d 09 09 43 65 | 6e 74 65 72 52 65 63 74 |p);...Ce|nterRect|
|00000840| 28 52 2c 76 68 29 3b 0d | 09 09 4d 6f 76 65 57 69 |(R,vh);.|..MoveWi|
|00000850| 6e 64 6f 77 28 77 70 74 | 72 2c 20 72 2e 6c 65 66 |ndow(wpt|r, r.lef|
|00000860| 74 2c 20 72 2e 74 6f 70 | 2c 20 4d 61 6b 65 46 72 |t, r.top|, MakeFr|
|00000870| 6f 6e 74 29 3b 0d 09 65 | 6e 64 3b 0d 45 4e 44 3b |ont);..e|nd;.END;|
|00000880| 0d 0d 0d 76 61 72 20 74 | 65 6d 70 41 6c 65 72 74 |...var t|empAlert|
|00000890| 20 3a 20 41 6c 65 72 74 | 54 48 6e 64 6c 3b 0d 09 | : Alert|THndl;..|
|000008a0| 69 3a 69 6e 74 65 67 65 | 72 3b 0d 09 73 74 6f 70 |i:intege|r;..stop|
|000008b0| 74 69 6d 65 3a 6c 6f 6e | 67 69 6e 74 3b 0d 42 45 |time:lon|gint;.BE|
|000008c0| 47 49 4e 0d 09 49 6e 69 | 74 54 6f 6f 6c 42 6f 78 |GIN..Ini|tToolBox|
|000008d0| 3b 0d 09 64 72 61 77 6d | 65 6e 75 62 61 72 3b 0d |;..drawm|enubar;.|
|000008e0| 0d 09 74 68 65 44 69 61 | 6c 6f 67 20 3a 3d 20 47 |..theDia|log := G|
|000008f0| 65 74 4e 65 77 44 69 61 | 6c 6f 67 28 31 33 30 2c |etNewDia|log(130,|
|00000900| 4e 49 4c 2c 50 6f 69 6e | 74 65 72 28 2d 31 29 29 |NIL,Poin|ter(-1))|
|00000910| 3b 0d 09 49 46 20 74 68 | 65 44 69 61 6c 6f 67 3d |;..IF th|eDialog=|
|00000920| 4e 49 4c 20 54 48 45 4e | 0d 09 42 45 47 49 4e 20 |NIL THEN|..BEGIN |
|00000930| 7b 46 61 74 61 6c 3a 63 | 6f 75 6c 64 20 6e 6f 74 |{Fatal:c|ould not|
|00000940| 20 70 72 6f 63 65 73 73 | 20 64 69 61 6c 6f 67 7d | process| dialog}|
|00000950| 0d 09 09 73 79 73 62 65 | 65 70 28 32 29 3b 0d 09 |...sysbe|ep(2);..|
|00000960| 45 4e 44 0d 09 45 4c 53 | 45 20 42 45 47 49 4e 0d |END..ELS|E BEGIN.|
|00000970| 0d 09 09 43 65 6e 74 65 | 72 57 69 6e 64 6f 77 28 |...Cente|rWindow(|
|00000980| 74 68 65 44 69 61 6c 6f | 67 2c 68 29 3b 0d 09 09 |theDialo|g,h);...|
|00000990| 73 68 6f 77 77 69 6e 64 | 6f 77 28 74 68 65 44 69 |showwind|ow(theDi|
|000009a0| 61 6c 6f 67 29 3b 0d 09 | 09 73 65 6c 65 63 74 77 |alog);..|.selectw|
|000009b0| 69 6e 64 6f 77 28 74 68 | 65 44 69 61 6c 6f 67 29 |indow(th|eDialog)|
|000009c0| 3b 0d 09 09 73 65 74 70 | 6f 72 74 28 74 68 65 64 |;...setp|ort(thed|
|000009d0| 69 61 6c 6f 67 29 3b 0d | 09 09 69 6e 76 61 6c 72 |ialog);.|..invalr|
|000009e0| 65 63 74 28 74 68 65 64 | 69 61 6c 6f 67 5e 2e 70 |ect(thed|ialog^.p|
|000009f0| 6f 72 74 72 65 63 74 29 | 3b 0d 09 09 42 65 67 69 |ortrect)|;...Begi|
|00000a00| 6e 75 70 64 61 74 65 28 | 74 68 65 44 69 61 6c 6f |nupdate(|theDialo|
|00000a10| 67 29 3b 0d 09 09 64 72 | 61 77 64 69 61 6c 6f 67 |g);...dr|awdialog|
|00000a20| 28 74 68 65 44 69 61 6c | 6f 67 29 3b 45 6e 64 75 |(theDial|og);Endu|
|00000a30| 70 64 61 74 65 28 74 68 | 65 44 69 61 6c 6f 67 29 |pdate(th|eDialog)|
|00000a40| 3b 0d 09 45 4e 44 3b 0d | 0d 09 73 74 6f 70 74 69 |;..END;.|..stopti|
|00000a50| 6d 65 3a 3d 74 69 63 6b | 63 6f 75 6e 74 2b 36 30 |me:=tick|count+60|
|00000a60| 2a 31 30 3b 0d 0d 09 52 | 45 50 45 41 54 0d 0d 09 |*10;...R|EPEAT...|
|00000a70| 09 49 46 20 57 61 69 74 | 4e 65 78 74 45 76 65 6e |.IF Wait|NextEven|
|00000a80| 74 20 28 45 76 65 72 79 | 45 76 65 6e 74 2c 20 65 |t (Every|Event, e|
|00000a90| 76 2c 20 36 30 2c 20 6d | 6f 75 73 65 72 67 6e 29 |v, 60, m|ousergn)|
|00000aa0| 20 54 48 45 4e 20 0d 09 | 09 43 41 53 45 20 65 76 | THEN ..|.CASE ev|
|00000ab0| 2e 77 68 61 74 20 4f 46 | 0d 09 09 09 61 63 74 69 |.what OF|....acti|
|00000ac0| 76 61 74 65 45 76 74 3a | 20 73 74 6f 70 74 69 6d |vateEvt:| stoptim|
|00000ad0| 65 3a 3d 74 69 63 6b 63 | 6f 75 6e 74 2b 36 30 2a |e:=tickc|ount+60*|
|00000ae0| 31 30 3b 09 7b 72 65 73 | 65 74 20 74 68 65 20 73 |10;.{res|et the s|
|00000af0| 74 6f 70 20 74 69 6d 65 | 7d 0d 0d 09 09 09 75 70 |top time|}.....up|
|00000b00| 64 61 74 65 45 76 74 20 | 3a 20 42 45 47 49 4e 0d |dateEvt |: BEGIN.|
|00000b10| 0d 09 09 09 09 49 46 20 | 69 73 44 69 61 6c 6f 67 |.....IF |isDialog|
|00000b20| 45 76 65 6e 74 28 65 76 | 29 20 54 48 45 4e 0d 09 |Event(ev|) THEN..|
|00000b30| 09 09 09 55 70 64 74 44 | 69 61 6c 6f 67 28 44 69 |...UpdtD|ialog(Di|
|00000b40| 61 6c 6f 67 70 74 72 28 | 65 76 2e 4d 65 73 73 61 |alogptr(|ev.Messa|
|00000b50| 67 65 29 2c 74 68 65 50 | 6f 72 74 5e 2e 76 69 73 |ge),theP|ort^.vis|
|00000b60| 52 67 6e 29 3b 0d 09 09 | 09 09 73 74 6f 70 74 69 |Rgn);...|..stopti|
|00000b70| 6d 65 3a 3d 74 69 63 6b | 63 6f 75 6e 74 2b 36 30 |me:=tick|count+60|
|00000b80| 2a 31 30 3b 09 7b 72 65 | 73 65 74 20 74 68 65 20 |*10;.{re|set the |
|00000b90| 73 74 6f 70 20 74 69 6d | 65 7d 0d 0d 09 09 09 45 |stop tim|e}.....E|
|00000ba0| 4e 44 3b 0d 09 09 09 64 | 69 73 6b 45 76 74 20 3a |ND;....d|iskEvt :|
|00000bb0| 20 49 46 20 50 6f 69 6e | 74 20 28 65 76 2e 6d 65 | IF Poin|t (ev.me|
|00000bc0| 73 73 61 67 65 29 2e 76 | 20 3c 3e 20 6e 6f 45 72 |ssage).v| <> noEr|
|00000bd0| 72 20 54 48 45 4e 0d 09 | 09 09 49 46 20 45 6a 65 |r THEN..|..IF Eje|
|00000be0| 63 74 20 28 4e 49 4c 2c | 20 50 6f 69 6e 74 20 28 |ct (NIL,| Point (|
|00000bf0| 65 76 2e 6d 65 73 73 61 | 67 65 29 2e 68 29 20 3c |ev.messa|ge).h) <|
|00000c00| 3e 20 6e 6f 45 72 72 20 | 54 48 45 4e 3b 0d 09 09 |> noErr |THEN;...|
|00000c10| 09 7b 09 20 45 6a 65 63 | 74 20 62 61 64 20 64 69 |.{. Ejec|t bad di|
|00000c20| 73 6b 73 20 2e 20 7d 0d | 09 09 45 4e 44 3b 0d 0d |sks . }.|..END;..|
|00000c30| 09 55 4e 54 49 4c 20 28 | 65 76 2e 77 68 61 74 20 |.UNTIL (|ev.what |
|00000c40| 49 4e 20 5b 6b 65 79 64 | 6f 77 6e 2e 2e 61 75 74 |IN [keyd|own..aut|
|00000c50| 6f 4b 65 79 2c 20 6d 6f | 75 73 65 64 6f 77 6e 2c |oKey, mo|usedown,|
|00000c60| 20 64 69 73 6b 45 76 74 | 2c 20 61 70 70 34 45 76 | diskEvt|, app4Ev|
|00000c70| 74 5d 29 20 0d 09 4f 52 | 20 28 74 69 63 6b 63 6f |t]) ..OR| (tickco|
|00000c80| 75 6e 74 3e 73 74 6f 70 | 74 69 6d 65 29 3b 0d 0d |unt>stop|time);..|
|00000c90| 45 4e 44 2e 0d 00 00 00 | 00 00 00 00 00 00 00 00 |END.....|........|
|00000ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 01 00 00 00 01 9d | 00 00 00 9d 00 00 00 52 |........|.......R|
|00000d10| 65 6d 66 6f 6c 64 65 72 | 7d 66 69 6e 64 65 72 22 |emfolder|}finder"|
|00000d20| 20 67 69 6e 64 65 72 0d | 64 75 6d 70 63 6f 64 65 | ginder.|dumpcode|
|00000d30| 07 68 65 6c 6c 6f 2e 70 | 02 00 00 00 54 45 58 54 |.hello.p|....TEXT|
|00000d40| 4d 50 53 20 01 00 00 00 | 00 c0 00 00 00 00 15 74 |MPS ....|.......t|
|00000d50| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 c0 |..TEXTMP|S ......|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 a1 cb bf 99 00 00 | 0c 15 00 00 01 ef 20 20 |........|......  |
|00000d80| 31 20 43 4f 44 45 20 4d | 61 69 6e 0d 20 20 20 31 |1 CODE M|ain.   1|
|00000d90| 30 20 43 4f 44 45 20 43 | 6f 70 79 53 65 67 0d 20 |0 CODE C|opySeg. |
|00000da0| 20 20 20 36 20 43 4f 44 | 45 20 50 72 69 6e 74 53 |   6 COD|E PrintS|
|00000db0| 65 67 0d 20 20 20 20 37 | 20 43 4f 44 45 20 41 62 |eg.    7| CODE Ab|
|00000dc0| 6f 75 74 53 65 67 0d 20 | 20 20 20 38 20 43 4f 44 |outSeg. |   8 COD|
|00000dd0| 45 20 53 74 72 74 53 65 | 67 0d 20 20 20 20 39 20 |E StrtSe|g.    9 |
|00000de0| 43 4f 44 45 20 50 72 69 | 76 53 65 67 0d 20 20 20 |CODE Pri|vSeg.   |
|00000df0| 20 35 20 43 4f 44 45 20 | 49 6e 66 6f 53 65 67 0d | 5 CODE |InfoSeg.|
|00000e00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 6f 6c 73 |...H..Mo|naco.ols|
|00000e10| 3a 53 63 72 65 65 6e 53 | 61 76 65 72 00 00 00 14 |:ScreenS|aver....|
|00000e20| 00 01 3a 5c 00 0a 00 06 | 00 04 00 2a 00 03 01 dd |..:\....|...*....|
|00000e30| 02 7d 00 3c 00 24 01 dd | 02 3d a4 d0 b4 26 00 00 |.}.<.$..|.=...&..|
|00000e40| 0a 7a 00 00 0a 7a 00 00 | 08 f1 01 00 00 00 00 1e |.z...z..|........|
|00000e50| 00 2a 00 03 01 dd 02 7d | 00 3c 00 24 01 dd 02 3d |.*.....}|.<.$...=|
|00000e60| 00 00 08 f1 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 2b 01 23 80 00 00 00 | 05 31 2e 32 2e 33 1e 31 |.+.#....|.1.2.3.1|
|00000e80| 2e 32 2e 33 a9 31 39 39 | 31 54 68 65 20 4e 65 74 |.2.3.199|1The Net|
|00000e90| 57 6f 72 6b 20 50 72 6f | 6a 65 63 74 20 00 00 01 |Work Pro|ject ...|
|00000ea0| 00 00 00 01 9d 00 00 00 | 9d 00 00 00 52 00 48 3c |........|....R.H<|
|00000eb0| 78 08 d2 00 00 00 1c 00 | 52 00 01 4d 50 53 52 00 |x.......|R..MPSR.|
|00000ec0| 01 00 12 76 65 72 73 00 | 00 00 2a 03 ed ff ff 00 |...vers.|..*.....|
|00000ed0| 00 00 00 00 00 00 00 03 | f0 ff ff 00 00 00 4c 00 |........|......L.|
|00000ee0| 00 00 00 00 02 ff ff 20 | 00 00 6e 00 48 37 d0 00 |....... |..n.H7..|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+